Option Public
Option Declare

Sub Initialize()
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument

	Set db = s.CurrentDatabase
	Set doc = db.GetProfileDocument("Archive Database Profile")
	Call doc.Remove(True)	

End Sub